
LEZIONE 


CONOSCERE 
IL COMPUTER 
DIRETTAMENTE 
DAL COMPUTER 

per Commodore Vie 20 e 64 


per Commodore Vic20 e 




Beatrice d’Este 




CON 
IL CO 
DIRETT 
DAL CO 




























Come già sai puoi collegare al computer uno stampante, 
così da stampare su carta i listati oppure i dati elaborati da 
un programma. 

In questa lezione vedremo quindi le istruzioni che servono 
per comandare la stampante. 

La prima cosa da fare sarà quella di aprire il canale di 
collegamento con l'istruzione OPEN, e precisamente: 

OPEN1 r 4. 

Tieni presente che se usi la stampantina Plotter 1520, dovrai 
invece usare il 5 come numero della periferica. Quindi 
scriverai: OPEN1,5. 
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Poi, con l'istruzione CMD1, informerai il computer che finché 
non viene chiuso il canale di collegamento dovrà stampare 
tutte le scritte che normalmente appaiono sul video. 

A questo punto potrai usare i soliti PRINT#INPUT e LIST per 
stampare i dati sullo stampante. 

Quando vorrai tornare olla visualizzazione su video scriverai 

PWNT#1 e poi CLOSE1. 

Doto che il comando CMD1 non chiude lo lineo con lo 
stampante, è sempre necessario il PRJNT#1 primo del 
CLOSE1. Solo in questo modo si potrà chiudere 
correttamente il canale della stampante. 

Quindi per stampare il listato di un programmo scriverai: 
OPEN1,4: CMD1: LIST 

e per chiudere lo lineo con lo stampante: PRINT# 1 : CLOSE1 







Una volta aperto il canale per stampare i dati potrai anche 
usare l'istruzione PRJNT#1, seguita dalle variabili o dalle 
stringhe che dovranno essere stampate. 

Tieni presente che il numero che segue il PRINT#deve essere 
uguale al numero di canale usato nell'OPEN. 

La stampante, come il computer, può lavorare con due 
diversi set di caratteri: maiuscoli/grafici e minuscoli/ 
maiuscoli. 

Per comunicare alla stampante quale set intendi usare dovrai 
inserire l'indirizzo secondario: rispettivamente 0 per i 
caratteri maiuscoli / grafici e 7 per quelli minuscoli / maiuscoli. 


Ricorda comunque chela stampante, all'accensione, viene 
predisposta automaticamente ai caratteri maiuscoli / grafici. 
Per evidenziare dei caratteri puoi anche stamparli 
raddoppiandone la larghezza. Per fare questo, dopo aver 
aperto il canale alla stampante con OPEN 1,4 dovrai scrivere: 
PRINT#1, CHR$ (14). 

Quindi, per ritornare alla stampa normale: 

PRINT#1,CHR$(15). 



Listato dell'esercizio: 
ESEMPIO PRATICO 

10 d ima$<25 >:s=ti:print "SBEl" 

20 forK=Ito 12 s a$=chr#<inttrnd<0)*26+65)) 

30 -forh = lto2 

40 p = int(rrd(0) *25+ 1 ) 

50 ifa$<p )< >" "-then40 
60 a$(p)=a$:nexth,K 
70 a$=chr*(int(rnd<0>*26+65>> 

80 -forK = lto25 

30 ifa$(K) = ,,,, thena*(K)=a$ 

100 nextK 

110 -forx=0to4:fory = Ilo5 
120 i=x*5+y ‘ printa*(i)” 

130 nexty:pr int sprint ìnextx 
150 print" lettera non" 

160 input"accoppiata";t$ 

170 if-f#=a$thenpr int "Elesatto “ !goto200 

180 pr int "Efcbag1 iato end 

200 t=ti:print"gfcecondi: int < <t-s >/60) 


Listato dell'esercizio: 
COMPLETA IL LISTATO (CDM 64) 

10 C* 353230,7 :poKe53281 ,7 
20 forx = Ito E * 3 :readt$(x>:nextx 
30 data + , + , + ,*,*,*,* 

40 pr intchr$< 147) "mossa: ; c * 3 
50 -for C*3to3 

60 print!printtab(10);x;t$(x) 

70 nextx 

80 g*=t$(6)+[*3<7>+t«C8>+t$<9> 

90 i-fg*=" + + + +"then C*3 

100 pr int: input"partenza";a 

110 input "arrivo ";C*3 

120 C * 3 < t $ •; a > = " ” > + < 1 9 < z > < > " " ) t h e n 150 

130 i-fabs <a-z > > [ * 3then 150 

140 t$<z: C*3 = " " 

150 C* 3 :pr int:goto40 
160 print"tine":[*3 
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Listato dell'esercizio: 

COMPLETA IL LISTATO (VIC 20) 

Il listato è identico a quello per il CBM 64, tranne nello lineo: 

10 1*336379,127 


PROGRAMMIAMO INSIEME (CDM 64) 

10 dimm$(12) ,d <12>:poKe532S0,7 :poKe53231,7:v=35 
20 -f or K = Ito 12 s r eadm$(K ) s nextK 

30 dalia gen ,-f eb ,mar ,apr ,mag ,g iu , 1 ug ,ago ,set ,ott ,nov ,d ic 
40 pr intchr$< 142 ) "®linser imeirto dat iEI" 

50 -forK = lto 12 

60 pr intm$<K); : inpu-td<K) 

70 nextK 

80 -for K = Ito 12 

90 ifd(K>>jthenj=d (K ) 

100 nextK 

110 it.j =Othenpr int "Elion ci sono dati” send 
120 pr int "SSSIistogr ammisi" 

130 -forK = Ito 12 
140 t =t +d <K ) 

150 printm$(K)* |"; 

160 h = int<d(K)/j*v ) 

170 ith=0then210 
1 S0 -forn = ltoh 
180 print "I a»; 

200 nextn 

210 pr int snextK 

220 pr int "Sia a = "t. j/v 

230 pr int "Ettotal e : t 

240 pr int "Etned ia mens : ” ; int <t/12 ) 


PROGRAMMIAMO INSIEME (VIC 20) 

Il listato è identico a quello per il CBM 64, tranne nella lineo: 

10 di mrnsr ( 12 ) , d < 12 > : p o K e 36879,127 : v = 1 7 
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Soluzione dell'esercizio: 

COMPLETA IL LISTATO 

(lez. 29) 

10 -f or x = lto5 s tory = Ito 10 

20 1 $<x)=1$<x)+chr$(int(rnd<0>*5+71)) 

30 nexty 

40 printxJ1$(x>:nextx:s=ti 
50 -f orx = lto4 : f ory = lto4 
60 ifl$(yKU(y + l >then80 
70 h*=l:$<y >:l$<y>=l$<y + l>:i$<y + l>=h$ 

80 nextyinextx 
90 torx=lto5 

100 print"scrivi la stringa" fu 
110 inputa$:ita*<>l$<x)then150 
120 nextx 

130 f=ti:print"tempo :int <<t-s >/60> 

140 goto 160 

150 print "risposta: ";l$(x) 

160 end 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO CDM 64 

(lez. 30) 

10 poKe53280,?:poKe53281,7 
20 torx = lto9:readt$(x ) snextx 
30 data 

40 printchr$(147)"mossa:”;m 
50 torx=lto9 

60 pr int:printtab<10);xit^<x) 

70 nextx 

80 g*=t*<6>+t*<7)+t$<8)+t$0:> 

90 ifg$="++++"then160 

100 print:input"partenza";a 

110 input "arr ivo "fz 

120 it <tSKa ) = "”) + (t«<z )< >" " )then 150 

130 i-fabs Ca-z ) >3then 150 

140 t*Kz >=t4Ka ) : t*<a ) = " " 

150 m=m+1 :print:goto40 
160 print" fine ":end 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO VIC 20 

(lez. 30) 

11 listato è identico a quello per il CBM 64, tranne nello linea: 

10 poKe36373,127 
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